home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / e2ib.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  2KB  |  77 lines
  1. /*
  2. Author:        Alfonso Ranieri <alfier@iol.it>
  3. Desription:    Export to an IBrowse hotlist
  4. Template:      KEY,USER/K
  5. Tipical usage: rx e2ib >file
  6. */
  7.  
  8. call addlib("rmh.library",0,-30) then exit
  9. call addlib("rxcmanager.library",0,-30) then exit
  10.  
  11. if ~open("STDERR","CONSOLE:","W") then stderr="STDOUT"
  12.  
  13. prg=programname("NOEXT")
  14. if ~RMH_ReadArgs("KEY,USER/K") then do
  15.     call printfault(ioerr(),prg)
  16.     exit
  17. end
  18.  
  19. if parm.0.flag then k = "#?"parm.0.value"#?"
  20. else k = "#?"
  21.  
  22. if parm.1.flag then call CMUserData(parm.1.value)
  23.  
  24. patt.Name    = k
  25. patt.WWW     = k
  26. patt.Comment = k
  27. num = CMFind("WWW GROUPS","URL","PATT")
  28. if num=1 then call info "No url entry found"
  29. else call info "Found" num "url(s)"
  30.  
  31. say '<!-- IBrowse Hotlist V2 -->'
  32. say '<HTML>'
  33. say '<HEAD><TITLE>IBrowse Hotlist</TITLE></HEAD>'
  34. say '<BODY>'
  35. say '<H2><P ALIGN=CENTER>IBrowse Hotlist</P></H2>'
  36. say '<HR>'
  37. say '<UL>'
  38.  
  39. g=""
  40. p=""
  41. ng=0
  42. do i=0 to num-1
  43.     if url.i.Group~=g then do
  44.         if g~="" then do
  45.             if url.i.Group~=g & url.i.parents="" then do
  46.                 call endG
  47.             end
  48.         end
  49.         say "<LI><B>"url.i.Group"</B><UL>"
  50.         ng=ng+1
  51.         g=url.i.Group
  52.     end
  53.     if ~url.i.EmptyGroup then
  54.         say "<LI><A HREF=" || '"'url.i.WWW'"' || ">" || url.i.Name || "</A>"
  55. end
  56.  
  57. call endG
  58.  
  59. say '</UL>'
  60. say '<HR>'
  61. say '<P align=center><font size=-1>This hotlist has been created using <A HREF="http://users.iol.it/alfier/rxcmanager.html">rxcmanager</A>.</font></P></BODY>'
  62. say '</HTML>'
  63.  
  64. exit
  65.  
  66. info: procedure expose stderr prg
  67. parse arg msg
  68.     call writeln(stderr,prg":" msg)
  69.     return
  70.  
  71. endG: procedure expose ng
  72.     do j=0 to ng-1
  73.         say "</UL>"
  74.     end
  75.     ng=0
  76.     return
  77.